home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / MISC / HCAL-27 / PWRCCT.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1996-10-28  |  6.3 KB  |  186 lines
  1. 10  'PWRCCT - Power Supply Schematic - 05 DEC 90  rev. 28 OCT 96
  2. 20  CLS:KEY OFF
  3. 30  SCREEN 0,0,0
  4. 40  COMMON EX$,PROG$
  5. 50  IF EX$=""THEN EX$="EXIT"
  6. 60  PROG$="pwrcct"
  7. 70  COLOR 7,0,1
  8. 80  PI=3.14159
  9. 90  UL$=STRING$(79,205)
  10. 100  '
  11. 110  '.....start
  12. 120  CLS
  13. 130  COLOR 15,2
  14. 140  PRINT " POWER SUPPLIES";TAB(57);"by George Murphy VE3ERP ";
  15. 150  COLOR 1,0:PRINT STRING$(80,223);
  16. 160  COLOR 7,0
  17. 170  TB=(7)        'tab for text
  18. 180  GOSUB 1660    'text block
  19. 190  PRINT
  20. 200  PRINT UL$;
  21. 210  PRINT " Press number in < > to:"
  22. 220  PRINT UL$
  23. 230  PRINT "  < 1 >  Display circuit diagram"
  24. 240  PRINT "  < 2 >  Design a basic power supply"
  25. 250  PRINT "  < 3 >  List standard electrolytic capacitor values"
  26. 260  PRINT "         (Your may want to print out this list now before starting ";
  27. 270  PRINT "the design)
  28. 280  PRINT
  29. 290  PRINT "  < 0 >  EXIT"
  30. 300  Z$=INKEY$
  31. 310  IF Z$="0"THEN CLS:RUN EX$
  32. 320  IF Z$="1"THEN CLS:GOTO 370
  33. 330  IF Z$="2"THEN CLS:CHAIN "pwrsupp"
  34. 340  IF Z$="3"THEN CLS:CHAIN "capacval"
  35. 350  GOTO 300
  36. 360  '
  37. 370  '.....circuit diagram
  38. 380  SCREEN 9
  39. 390  COLOR 15,1
  40. 400  PRINT " UNREGULATED POWER SUPPLY CIRCUIT";TAB(55);"by George Murphy VE3ERP"
  41. 410  PRINT " --------------------------------"
  42. 420  '
  43. 430  LINE (174,28)-(174,92):LINE (182,28)-(182,92)          'xfmr core
  44. 440  FOR Z=36 TO 84 STEP 12                                 'xfmr coils
  45. 450  CIRCLE (160,Z),8,,1.5*PI,PI/2
  46. 460  CIRCLE (196,Z),8,,PI/2,1.5*PI
  47. 470  NEXT Z
  48. 480  '
  49. 490  CIRCLE (46,30),4:CIRCLE (46,90),4                     'input terminals
  50. 500  LINE (50,30)-(99,30):LINE (100,26)-(124,34),,B        'fuse
  51. 510  LINE (125,30)-(159,30):LINE (197,30)-(310,30)         'top line
  52. 520  CIRCLE (100,90),3:CIRCLE (124,90),3                   'switch terminals
  53. 530  LINE (50,90)-(96,90)                                  'switch lever
  54. 540  LINE (102,89)-(120,84)                                'switch
  55. 550  LINE (128,90)-(159,90):LINE (197,90)-(310,90)         'bottom line
  56. 560  LINE (250,30)-(250,90):LINE (310,30)-(310,90)         'bridge verticals
  57. 570  CIRCLE (250,30),2:CIRCLE (250,90),2                   'dots
  58. 580  CIRCLE (550,60),4:CIRCLE (550,150),4                  'output terminals
  59. 590  LINE (250,60)-(220,60):LINE (310,60)-(546,60)         'output line
  60. 600  CIRCLE (250,60),2:CIRCLE (310,60),2                   'dots
  61. 610  LINE (220,60)-(220,68):LINE (212,68)-(228,68)         'chassis ground
  62. 620  LINE (216,70)-(224,70):LINE (219,72)-(221,72)         'chassis ground
  63. 630  '
  64. 640  LINE (276,26)-(276,34):LINE (284,26)-(284,34)         'horizontal  diode
  65. 650  LINE (276,26)-(284,30):LINE (276,34)-(284,30)
  66. 660  PAINT (277,29):PAINT (277,31)
  67. 670  '
  68. 680  LINE (276,86)-(276,94):LINE (284,86)-(284,94)         'horizontal diode
  69. 690  LINE (276,86)-(284,90):LINE (276,94)-(284,90)
  70. 700  PAINT (277,89):PAINT (277,91)
  71. 710  '
  72. 720  LINE (244,42)-(256,42):LINE (244,48)-(256,48)         'vertical diode
  73. 730  LINE (244,48)-(250,42):LINE (256,48)-(250,42)
  74. 740  PAINT (249,47):PAINT(251,47)
  75. 750  '
  76. 760  LINE (244,72)-(256,72):LINE (244,78)-(256,78)         'vertical diode
  77. 770  LINE (244,72)-(250,78):LINE (256,72)-(250,78)
  78. 780  PAINT (249,73):PAINT(251,73)
  79. 790  '
  80. 800  LINE (362,160)-(378,160):LINE (366,162)-(374,162)     'chassis ground
  81. 810  LINE (369,164)-(371,164):LINE (370,150)-(546,150)     'ground lead
  82. 820  '
  83. 830  LINE (360,102)-(380,102):LINE (360,108)-(380,108)     'capacitor
  84. 840  LINE (370,60)-(370,102):LINE (370,108)-(370,160)      'capacitor leads
  85. 850  CIRCLE (370,60),2:CIRCLE (370,150),2                  'dots
  86. 860  '
  87. 870  LINE (430,97)-(435,99):LINE (435,99)-(425,103)        'bleeder resistor
  88. 880  LINE (425,103)-(435,107):LINE (435,107)-(425,111)
  89. 890  LINE (425,111)-(430,113)
  90. 900  LINE (430,60)-(430,97):LINE (430,113)-(430,150)       'bleeder leads
  91. 910  CIRCLE (430,60),2:CIRCLE (430,150),2                  'dots
  92. 920  '
  93. 930  LINE (490,82)-(495,84):LINE (495,84)-(485,88)         'LED resistor
  94. 940  LINE (485,88)-(495,92):LINE (495,92)-(485,96)
  95. 950  LINE (485,96)-(490,98)
  96. 960  '
  97. 970  LINE (484,117)-(496,117):LINE (484,123)-(496,123)     'LED
  98. 980  LINE (484,117)-(490,123):LINE (496,117)-(490,123)
  99. 990  PAINT (490,118)
  100. 1000  LOCATE 9,64:PRINT CHR$(26)
  101. 1010  LINE (490,60)-(490,82):LINE (490,98)-(490,117)        'LED leads
  102. 1020  LINE (490,123)-(490,150)
  103. 1030  CIRCLE (490,60),2:CIRCLE (490,150),2                  'dots
  104. 1040  '
  105. 1050  LOCATE 5,2:PRINT "A.C. input"
  106. 1060  LOCATE 4,14:PRINT "F1"
  107. 1070  LOCATE 5,18:PRINT "T1"
  108. 1080  LOCATE 5,34:PRINT "D1-D4"
  109. 1090  LOCATE 8,43:PRINT "C1"
  110. 1100  LOCATE 8,56:PRINT "R1"
  111. 1110  LOCATE 7,64:PRINT "R2"
  112. 1120  LOCATE 10,64:PRINT "D5"
  113. 1130  LOCATE 8,68:PRINT "D.C. output"
  114. 1140  LOCATE 5,72:PRINT "+"
  115. 1150  LOCATE 11,72:PRINT "-"
  116. 1160  LOCATE 8
  117. 1170  PRINT " F1     Mains Fuse"
  118. 1180  PRINT " T1     Tranformer"
  119. 1190  PRINT " D1-D4  Rectifier Diodes"
  120. 1200  PRINT " D5     Power On LED indicator"
  121. 1210  PRINT " C1     Filter Capacitor"
  122. 1220  PRINT " R1     Bleeder Resistor"
  123. 1230  PRINT " R2     LED resistor"
  124. 1240  LOCATE 17
  125. 1250  CIRCLE (310,231),4:CIRCLE (310,315),4           'input terminals
  126. 1260  LINE (370,216)-(450,246),,B                     'LM317 box
  127. 1270  LINE (314,231)-(370,231)                        '+ line
  128. 1280  LINE (450,231)-(546,231)                        '+ line
  129. 1290  CIRCLE (550,231),4:CIRCLE (550,315),4           'output terminals
  130. 1300  LINE (314,315)-(546,315)                        '- line
  131. 1310  LINE (490,244)-(495,246):LINE (495,246)-(485,250)     'R3
  132. 1320  LINE (485,250)-(495,254):LINE(495,254)-(485,258)
  133. 1330  LINE (485,258)-(490,260)
  134. 1340  '
  135. 1350  LINE (490,286)-(495,288):LINE (495,288)-(485,292)     'R4
  136. 1360  LINE (485,292)-(495,296):LINE(495,296)-(485,300)
  137. 1370  LINE (485,300)-(490,302)
  138. 1380  '
  139. 1390  LINE (490,231)-(490,244):LINE (490,260)-(490,286)     'resistor leads
  140. 1400  LINE (490,302)-(490,315)
  141. 1410  '
  142. 1420  LINE (485,292)-(480,289):LINE (485,292)-(480,295)     'arrow head
  143. 1430  LINE (480,289)-(480,295):PAINT (481,292)
  144. 1440  '
  145. 1450  LINE (410,246)-(410,292):LINE (410,292)-(480,292)     'pot leads
  146. 1460  LINE (410,273)-(490,273)
  147. 1470  '
  148. 1480  CIRCLE (410,273),2:CIRCLE (490,231),2                 'dots
  149. 1490  CIRCLE (490,273),2:CIRCLE (490,315),2
  150. 1500  '
  151. 1510  LOCATE 16
  152. 1520  PRINT " LM317 VOLTAGE REGULATOR CCT."
  153. 1530  PRINT " ----------------------------"
  154. 1540  LOCATE 17,50:PRINT "LM317"
  155. 1550  LOCATE 17,37:PRINT "+"                          '+ input terminal
  156. 1560  LOCATE 17,72:PRINT "+"                          '+ output
  157. 1570  LOCATE 19,64:PRINT "R3"
  158. 1580  LOCATE 18:PRINT " R3     Fixed resistor"
  159. 1590  LOCATE 19:PRINT " R4     Adjustable resistor"
  160. 1600  LOCATE 22,64:PRINT "R4"
  161. 1610  LOCATE 23,37:PRINT "-"                          '- output
  162. 1620  LOCATE 23,72:PRINT "-"
  163. 1630  LOCATE 23,2:PRINT "PRESS ANY KEY TO EXIT..."
  164. 1640  IF INKEY$=""THEN 1640 ELSE 10
  165. 1650  '
  166. 1660  '.....text block
  167. 1670  PRINT TAB(TB);
  168. 1680  PRINT "The schematic diagram in program <1> is written for GWBASIC screen"
  169. 1690  PRINT TAB(TB);
  170. 1700  PRINT "mode 9 (graphics mode) and an EGA or VGA 640 x 350 pixel monitor."
  171. 1710  PRINT TAB(TB);
  172. 1720  PRINT "The diagram may be distorted or the program may hang up if your"
  173. 1730  PRINT TAB(TB);
  174. 1740  PRINT "hardware is not compatible with this configuration."
  175. 1750  PRINT
  176. 1760  PRINT TAB(TB);
  177. 1770  PRINT "But not to worry.........................."
  178. 1780  PRINT
  179. 1790  PRINT TAB(TB);
  180. 1800  PRINT "Block diagrams that will display on any monitor and print on any"
  181. 1810  PRINT TAB(TB);
  182. 1820  PRINT "printer loaded with standard ASCII character sets with graphics"
  183. 1830  PRINT TAB(TB);
  184. 1840  PRINT "characters are included in every program."
  185. 1850  RETURN
  186.